home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / codeco1a / moderrha.bas < prev   
BASIC Source File  |  1999-06-26  |  1KB  |  43 lines
  1. Attribute VB_Name = "modErrHandling"
  2. ' Code for modErrHandling.bas (Module)
  3. ' By J.M.Goebel (hmg65@dialup.nacamar.de)
  4. ' This Code is Freeware if you use this code to develop new Application
  5. ' it may only be distributed as Freeware!
  6.  
  7. 'This code must be copied into frmAddin.txtModErrHandling.text
  8. 'Of course the textbox must be multiline!
  9.  
  10.  
  11.  
  12. Option Explicit
  13. Public Const ComponentErrorOffset = 1000
  14. Public gStatus$
  15. Public Sub RaiseError(Number&, Description$, Source$)
  16.  
  17. Err.Raise Number, Description, Source
  18.  
  19. End Sub
  20.  
  21. Public Sub LogError(Number&, Description$, Source$, Status$, CodeLocation$)
  22.  
  23. Dim strEvent$
  24. If App.LogMode = 0 Or App.LogMode = 1 Then
  25.   App.StartLogging App.Path + "\" + App.EXEName + ".log", 2
  26. End If
  27.  
  28. strEvent = "Error: " & Number
  29. strEvent = strEvent + vbCrLf + "Description: " & Description
  30. strEvent = strEvent + vbCrLf + "Source: " & Source
  31. strEvent = strEvent + vbCrLf + "Status: " & Status
  32. strEvent = strEvent + vbCrLf + "CodeLocation: " & CodeLocation
  33. strEvent = strEvent + vbCrLf + "Time: " & Format(Now)
  34. strEvent = strEvent + vbCrLf + "Version: " & App.Major & "." & App.Minor & "." & App.Revision
  35.  
  36.  
  37. App.LogEvent strEvent, vbLogEventTypeError
  38.  
  39.  
  40.  
  41. End Sub
  42.  
  43.